60000 REM FOR MPS-801, MPS-803, 1525 PRINTERS
60005 SL=8192:REM START OF HI-RES SCREEN
60010 DIMSC(127),A$(25,40):FORI=0TO127:READSC(I):T=T+SC(I):NEXT
60020 IF T<>24512 THEN PRINT"ERROR IN DATA STATEMENTS":STOP
60030 DATA128,192,160,224,144,208,176,240,136,200,168,232,152,216,184,248,132
60040 DATA196,164,228,148,212,180,244,140,204,172,236,156,220,188,252,130,194
60050 DATA162,226,146,210,178,242,138,202,170,234,154,218,186,250,134,198,166
60060 DATA230,150,214,182,246,142,206,174,238,158,222,190,254,129,193,161,225
60070 DATA145,209,177,241,137,201,169,233,153,217,185,249,133,197,165,229,149
60080 DATA213,181,245,141,205,173,237,157,221,189,253,131,195,163,227,147,211
60090 DATA179,243,139,203,171,235,155,219,187,251,135,199,167,231,151,215,183
60100 DATA247,143,207,175,239,159,223,191,255
60110 OPEN4,4:FORI=7680+SLTO7992+SLSTEP8:M=(I-7680-SL)/8+1
60120 FORJ=I-7680TOISTEP320:N=(I-J)/320+1:FORK=J+7TOJSTEP-1:X=PEEK(K)
60130 IFX>127THENX=X-64:GOTO60130
60140 IFK=J+7THENA$(N,M)=A$(N,M)+CHR$(SC(XANDPEEK(K-1)+128)):GOTO60160
60150 A$(N,M)=A$(N,M)+CHR$(SC(X))
60160 NEXT:NEXT:FORL=1TO25:PRINT#4,CHR$(8)A$(L,M);:NEXT:PRINT#4,CHR$(8):NEXT
60170 PRINT#4:CLOSE4